home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 12
/
012.d81
/
three deep.boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
468b
|
20 lines
10 poke53281,2:poke53280,2
15 print"[158][147]"
20 print" [215]arning!"
30 print:print
40 print"[217]ou can not run [212][200][210][197][197] [196][197][197][208] from here."
70 print:print"[208]ress[160]<space> to return to [204]oadstar."
90 getk$:ifk$=""thengosub60000:goto90
100 poke53280,rnd(1)*15
110 ifk$=" "ork$="[160]"thenk=1
120 onkgoto63000:goto90
60000 fordl=1to100:next
60001 ifc=0thenc=1:goto60005
60002 c=0
60005 ifc=0thenprint" [215]arning!"
60010 ifc=1thenprint" [215]arning!"
60020 return
63000 rem connect back to l.s.
63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
63004 poke198,0:poke631,13:poke632,13:poke198,2:end